home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / MacPerl 5.1.3 / Mac_Perl_513_src / perl5.002 / writediag < prev    next >
Encoding:
Text File  |  1996-07-09  |  126 b   |  10 lines  |  [TEXT/MPS ]
  1. #!perl
  2.  
  3. while (<>) {
  4.     print if 1../^__END__\s*# wish diag dbase were more accessible/;
  5.     last if eof;
  6. }
  7.  
  8. while (<>) {
  9.     print;
  10. }